var i:integer;
var j:real;
	begin
		i:=1;
		if i then
			begin
			i:=1;
			end
	        else
			begin
			i:=1;
		        end
	end.
